\begin{tabbing}
(\=(Auto$\cdot$) \+
\\[0ex]CollapseTHEN (MoveToConcl ({-}1))$\cdot$) 
\\[0ex]CollapseTHEN (((
\-\\[0ex]R\=WO "can{-}apply{-}compose{-}sq" (0)) \+
\\[0ex]CollapseTHENA (Auto$\cdot$)$\cdot$) 
\\[0ex]CollapseTHEN ((Unfold `guard
\-\\[0ex]`\= ( 0)$\cdot$) \+
\\[0ex]CollapseTHEN (AutoBoolCase can{-}apply($g$;$x$))$\cdot$)$\cdot$)$\cdot$
\-
\end{tabbing}